home *** CD-ROM | disk | FTP | other *** search
/ The PC-SIG Library 9 / The PC-SIG Library on CD ROM - Ninth Edition.iso / 501_600 / DISK0562 / DISK0562.ZIP / SOFT4HAM.ARC / LOGFUDGE.2 < prev    next >
Text File  |  1985-09-28  |  2KB  |  44 lines
  1. 10 REM LOGFUDGE VER 800130
  2. 20 ERRSET 9060,E1,E2
  3. 30 DIM X1$(64),X2$(64)\I=0
  4. 40 Q3=0\N1=0\N4=0
  5. 50 INPUT"Name of LOG file ? ",L1$\IF L1$=""THEN 50
  6. 60 INPUT"Which drive is it on ? ",D1 \ IF D1<1ORD1>4 THEN60
  7. 70 INPUT"NAME OF NEW LOG FILE ? ",L2$\IFL2$=""THEN70
  8. 75 INPUT"WHICH DRIVE IS IT TO BE PUT ON ? ",D2\IFD2<1ORD2>4THEN75
  9. 80 D1$=STR$(D1) \ D2$=STR$(D2) \D1$=D1$(2,2)\D2$=D2$(2,2)
  10. 90 OPEN#0,"*"+L1$+","+D1$ \ READ#0,N1 \ CLOSE#0
  11. 100 PRINT"There are ",N1," entries in ",L1$
  12. 110 OPEN#0,L1$+","+D1$ \ REM OPEN OLD LOG FILE
  13. 115 CREATE "*"+L2$+","+D2$,2 \ CREATE L2$+","+D2$,INT((N1/4)+(N1*.15))+1
  14. 120 OPEN#1,L2$+","+D2$ \ REM OPEN NEW LOG FILE
  15. 130 READ #0,&D1,&D2,&D3,T,F,C$,S,R,M$,P,&Q1,&Q2,X$
  16. 135 I=I+1
  17. 140 D4=D1\D5=D2\D6=D3\T1=T\F1=F\S1=S\R1=R\P1=P
  18. 150 Q3=Q1\Q4=Q2\C1$=C$\M3$=M$\X1$=X$
  19. 160 IF I>=N1THEN180
  20. 170 READ #0,&D1,&D2,&D3,T,F,C$,S,R,M$,P,&Q1,&Q2,X$
  21. 180 I=I+1\IF C$="/*"THEN220\REM SKIP
  22. 190 WRITE#1,&D4,&D5,&D6,T1,F1,C1$,S1,R1,M3$,P1,&Q3,&Q4,X1$
  23. 200 N4=N4+1
  24. 210 IF I>N1 THEN 240 ELSE 140
  25. 220 IF I>N1 THEN 240 ELSE 130
  26. 240 CLOSE#0
  27. 250 CLOSE#1
  28. 260 OPEN#0,"*"+L2$+","+D2$
  29. 270 WRITE#0,N4
  30. 280 CLOSE#0
  31. 290 !"There are now ",N4," entries in the log file"
  32. 9000 FOR I=1 TO 4
  33. 9010 IF FILE("SYSTEM,"+STR$(I))=2 THEN EXIT 9030
  34. 9020 NEXT \ GOTO 9040
  35. 9030 CHAIN "SYSTEM,"+STR$(I)
  36. 9040 PRINT"put a system disc in any drive, then hit 'RETURN'"
  37. 9050 INPUT" ",A$ \ GOTO 9000
  38. 9060 ERRSET 9060,E1,E2
  39. 9070 IF E2=15THEN9000
  40. 9080 IFE1=9010THENIFI<1ORI>4THEN9040ELSE9020
  41. 9090 IFE2<>7THEN9100ELSEPRINT"FILE ERROR"\GOTO9000
  42. 9100 IFE2<>8THEN9110ELSEPRINT"HARD DISC ERROR"\GOTO9000
  43. 9110 PRINT"ERROR ",E2," AT LINE ",E1\GOTO9000
  44.